"
Check the methods that  use platform dependent user interactions.

This rule should be updated.
"
Class {
	#name : 'RePlatformDependentUserInteractionRule',
	#superclass : 'ReNodeMatchRule',
	#category : 'General-Rules-Potential Bugs',
	#package : 'General-Rules',
	#tag : 'Potential Bugs'
}

{ #category : 'accessing' }
RePlatformDependentUserInteractionRule class >> group [
	^ self potentialBugsGroup
]

{ #category : 'accessing' }
RePlatformDependentUserInteractionRule class >> rationale [
	^ 'Check the methods that  use platform dependent user interactions.'
]

{ #category : 'accessing' }
RePlatformDependentUserInteractionRule class >> ruleName [
	^ 'Platform dependent user interaction'
]

{ #category : 'accessing' }
RePlatformDependentUserInteractionRule class >> severity [
	^ #error
]

{ #category : 'accessing' }
RePlatformDependentUserInteractionRule class >> uniqueIdentifierName [
	"This number should be unique and should change only when the rule completely change semantics"

	^'PlatformDependentUserInteractionRule'
]

{ #category : 'initialization' }
RePlatformDependentUserInteractionRule >> initialize [
	super initialize.
	 self matchesAny: #(
			'PopUpMenu confirm: `@object1 orCancel: `@object2'
			'PopUpMenu confirm: `@object1 trueChoice: `@object2 falseChoice: `@object3'
			'PopUpMenu confirm: `@object1'
			'PopUpMenu inform: `@object1'
			'PopUpMenu initialize'
			'PopUpMenu labelArray: `@object1 lines: `@object2'
			'PopUpMenu labelArray: `@object1'
			'PopUpMenu labels: `@object1 lines: `@object2'
			'PopUpMenu labels: `@object1'
			'PopUpMenu withCaption: `@object1 chooseFrom: `@object2'
			 )
]
